home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / FORMMGR.DEF < prev    next >
Encoding:
Modula Definition  |  1993-03-05  |  2.9 KB  |  101 lines
  1. DEFINITION MODULE FormMgr;
  2.  
  3. (*
  4. AES Form Manager.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM PORTAB IMPORT SIGNEDWORD,UNSIGNEDWORD,ANYPOINTER;
  12. FROM RcMgr  IMPORT GRect;
  13.  
  14. IMPORT AES;
  15.  
  16. #if export
  17. EXPORT QUALIFIED TreePtr,ObjectIndex,FormDo,FormDials,FormDial,FormAlert,
  18.                  NoFile,NoMemory,FormError,FormCenter,Key,ObjectPtr,
  19.                  FormKeybd,FormButton,
  20.                  formdo,formdial,formalert,formcenter;
  21. #endif
  22.  
  23. (* [Form] Manager: [Do] Form Input, AES(50) ********************************)
  24.  
  25. TYPE TreePtr = AES.TreePtr;
  26.  
  27.      ObjectIndex = AES.ObjectIndex;
  28.  
  29. VAR FormDo: PROCEDURE(TreePtr,ObjectIndex): SIGNEDWORD;
  30.  
  31. (* [Form] Manager: [Dial] A Form Progress, AES(51) *************************)
  32.  
  33. TYPE FormDials = (FmDStart,    (* [F]or[mD]ial: Dial [Start] Form     *)
  34.                   FmDGrow,     (* [F]or[mD]ial: Dial [Grow]ing Form   *)
  35.                   FmDShrink,   (* [F]or[mD]ial: Dial [Shrink]ing Form *)
  36.                   FmDFinish,   (* [F]or[mD]ial: Dial [Finish] Form    *)
  37.                   FmDAStart,   (*                                     *)
  38.                   FmDAFinish); (*                                     *)
  39.  
  40. VAR FormDial: PROCEDURE(FormDials, VAR GRect, VAR GRect);
  41.  
  42. (* [Form] Manager: Do [Alert] Form Input, AES(52) **************************)
  43.  
  44. VAR FormAlert: PROCEDURE(UNSIGNEDWORD,ANYPOINTER): UNSIGNEDWORD;
  45.  
  46. (* [Form] Manager: Do [Error] Form Input, AES(53) **************************)
  47.  
  48. #if GEMDOS
  49. CONST NoFile   = -33;
  50.       NoMemory = -39;
  51. #elif PCDOS
  52. CONST NoFile   = 2;
  53.       NoMemory = 8;
  54. #elif UNIX
  55. CONST NoFile   = -33;
  56.       NoMemory = -39;
  57. #endif
  58.  
  59. PROCEDURE FormError(Error: SIGNEDWORD);
  60.  
  61. (* [Form] Manager: [Center] Form, AES(54) **********************************)
  62.  
  63. VAR FormCenter: PROCEDURE(TreePtr, VAR GRect);
  64.  
  65. (* [Form] Manager: Filter [Keyb]oar[d] Input, AES(55) **********************)
  66.  
  67. TYPE Key = AES.Key;
  68.  
  69.      ObjectPtr = AES.ObjectPtr;
  70.  
  71. PROCEDURE FormKeybd(    PTree : TreePtr;
  72.                         Ob    : ObjectIndex;
  73.                         NextOb: ObjectPtr;
  74.                         InKey : Key;
  75.                     VAR NewOb : ObjectPtr;
  76.                     VAR OutKey: Key): BOOLEAN;
  77.  
  78. (* [Form] Manager: Handle Mouse [Button] Input, AES(56) ********************)
  79.  
  80. PROCEDURE FormButton(    PTree : TreePtr;
  81.                          Ob    : ObjectPtr;
  82.                          Clicks: UNSIGNEDWORD;
  83.                      VAR NextOb: ObjectPtr): BOOLEAN;
  84.  
  85. (***************************************************************************)
  86.  
  87. PROCEDURE formdo(PTree: TreePtr;
  88.                  Start: ObjectIndex): SIGNEDWORD;
  89.  
  90. PROCEDURE formdial(    Dial: FormDials;
  91.                    VAR From: GRect;
  92.                    VAR To  : GRect);
  93.  
  94. PROCEDURE formalert(DefBut  : UNSIGNEDWORD;
  95.                     PAlrtStr: ANYPOINTER): UNSIGNEDWORD;
  96.  
  97. PROCEDURE formcenter(    Tree: TreePtr;
  98.                      VAR Rect: GRect);
  99.  
  100. END FormMgr.
  101.